home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / textyl / vecfonts / mf / vecbase.mf < prev    next >
Text File  |  1993-11-07  |  21KB  |  1,152 lines
  1. %    Vector font base
  2. %    Copyright (c) 1984,1985,1986, 1987 John S. Renner
  3. %    All rights reserved.
  4. %
  5. %
  6. %
  7. %  the following variables must be defined
  8. %  before inputting this file
  9. %       mode (the resolution:: e.g., islaprinter or isxerox, etc.)
  10. %       w0    (the width of the pen in "vec units")
  11. %       w1   (the height of the pen in "vec units")
  12. %            (note that w0 == w1 for a circular pen)
  13. %       the type of pen to use (cpen, vpen, hpen)
  14. %
  15. pxlmode; tfmmode; fntmode;
  16. islaprinter = 100;  % just names
  17. isxerox = 2700;
  18. issun = 500;
  19.  
  20. if mode = islaprinter:
  21.     mag = 0.66;  %for DEC LA100 printer
  22. else: if mode = isxerox:
  23.     mag = 1.5;  %for Xerox X2700
  24. else: if mode = issun:
  25.     mag = .59;
  26. fi; fi; fi;
  27.  
  28.  
  29. ptsperinch=72.27;
  30. spperinch=(65536.ptsperinch);
  31. pixperinch=(200.mag);
  32. pixpersp = (pixperinch / spperinch);
  33. vecunit = 1;         % just a name
  34. vecmeasure = 16384;    % in scaled points  2^14 sp
  35. ptsperpixel = (ptsperinch / pixperinch);
  36. pixpervecunit = pixpersp.vecmeasure;
  37. ptspervecunit = ptsperpixel.pixpervecunit;
  38.  
  39. hresolution pixperinch;
  40. vresolution pixperinch;
  41.  
  42. %
  43. % we allow only Odd sized diameters for vector pens
  44. % to avoid the off-by-one-half-pixel  errors
  45. %
  46.  
  47. tempa = w1.pixpervecunit;  % go from the user-specification
  48. if tempa < 1 :           % of pen size, to pixels
  49.     new w1; w1 = 1;           % taking care of underflow
  50. else:
  51.     new w1; w1 = 2*(round ((tempa - 1)/2)) + 1;
  52. fi;
  53.  
  54. tempb = w0.pixpervecunit;
  55. if tempb < 1 :
  56.     new w0; w0 = 1;
  57. else:
  58.     new w0; w0 = 2*(round ((tempb - 1)/2)) + 1;
  59. fi;
  60.  
  61. % pre-calculate some TeX information so that we can 
  62. %     adjust it if necessary
  63.  
  64. ds = ((16 vecunit).ptspervecunit);   %the design size in points
  65. if ds < 1.0 :
  66.     new ds; ds = 1.0;
  67. fi;
  68.  
  69. %-----------------Tex information---------------------
  70. %    w0 is horizontal width
  71. %    w1 is vertical height
  72.  
  73. magnification mag;
  74. designsize ds;
  75. fontidentifier "GRAPHIC-VECTORS";
  76. codingscheme "ASCII";
  77. maxht ((w1/2) + 16.vecunit.pixpervecunit);  %in pixels I think
  78.  
  79. texinfo 0,        %   -- but we'll use it for our own use
  80.     0,        %   --and interpret them in our own way
  81. (w0.ptsperpixel),    %   W0 the horizontal width
  82. (w1.ptsperpixel),    %   W1 the vertical width
  83. (16.vecunit.ptspervecunit),    %   Maxvectorlength
  84. (16.vecunit.ptspervecunit),    %    "
  85.     0;        %   empty
  86.  
  87.  
  88. %
  89. %  set the pen dimensions
  90. %
  91. eqtrace;
  92. vpenht = round (w1);
  93. hpenwd = round (w0);
  94. if w1 > w0 :        % probably a vpen
  95.     w8 = w1;
  96. else:            %probably a hpen
  97.     w8 = w0;
  98. fi;
  99. no eqtrace;
  100.  
  101.  
  102. no penreset;        %  VERY IMPORTANT
  103. no pagewarning;
  104.  
  105.  
  106.  
  107. subroutine vect (var dx)    
  108.         (var dy):
  109. x0 = 0;
  110. y0 = 0;
  111. if dx > 0 :
  112.     x1 = (dx.pixpervecunit) + 1; % what's an extra pixel among friends?
  113. else:
  114.     x1 = (dx.pixpervecunit);
  115. fi;
  116.  
  117. if dy > 0 :
  118.    y1 = (dy.pixpervecunit) + 1;
  119. else: if dy = 0 :
  120.    y1 = (dy.pixpervecunit) + 0;
  121. else : if dy < 0 :
  122.    y1 = (dy.pixpervecunit) - 1;
  123. fi; fi; fi;
  124.  
  125. w8 draw 0..1.
  126.  
  127.  
  128.  
  129. charcode 0;
  130. charht (( 15.9688.vecunit).ptspervecunit);
  131. chardp 0;
  132. charwd ((  0.9981.vecunit).ptspervecunit);
  133. call vect (  0.9981,  15.9688).
  134.  
  135.  
  136.  
  137. charcode 1;
  138. charht (( 15.8764.vecunit).ptspervecunit);
  139. chardp 0;
  140. charwd ((  1.9846.vecunit).ptspervecunit);
  141. call vect (  1.9846,  15.8764).
  142.  
  143.  
  144.  
  145. charcode 2;
  146. charht (( 15.7260.vecunit).ptspervecunit);
  147. chardp 0;
  148. charwd ((  2.9486.vecunit).ptspervecunit);
  149. call vect (  2.9486,  15.7260).
  150.  
  151.  
  152.  
  153. charcode 3;
  154. charht (( 15.5223.vecunit).ptspervecunit);
  155. chardp 0;
  156. charwd ((  3.8806.vecunit).ptspervecunit);
  157. call vect (  3.8806,  15.5223).
  158.  
  159.  
  160.  
  161. charcode 4;
  162. charht (( 15.2717.vecunit).ptspervecunit);
  163. chardp 0;
  164. charwd ((  4.7724.vecunit).ptspervecunit);
  165. call vect (  4.7724,  15.2717).
  166.  
  167.  
  168.  
  169. charcode 5;
  170. charht (( 14.9813.vecunit).ptspervecunit);
  171. chardp 0;
  172. charwd ((  5.6180.vecunit).ptspervecunit);
  173. call vect (  5.6180,  14.9813).
  174.  
  175.  
  176.  
  177. charcode 6;
  178. charht (( 14.6585.vecunit).ptspervecunit);
  179. chardp 0;
  180. charwd ((  6.4131.vecunit).ptspervecunit);
  181. call vect (  6.4131,  14.6585).
  182.  
  183.  
  184.  
  185. charcode 7;
  186. charht (( 14.3108.vecunit).ptspervecunit);
  187. chardp 0;
  188. charwd ((  7.1554.vecunit).ptspervecunit);
  189. call vect (  7.1554,  14.3108).
  190.  
  191.  
  192.  
  193. charcode 8;
  194. charht (( 13.9452.vecunit).ptspervecunit);
  195. chardp 0;
  196. charwd ((  7.8442.vecunit).ptspervecunit);
  197. call vect (  7.8442,  13.9452).
  198.  
  199.  
  200.  
  201. charcode 9;
  202. charht (( 13.5680.vecunit).ptspervecunit);
  203. chardp 0;
  204. charwd ((  8.4800.vecunit).ptspervecunit);
  205. call vect (  8.4800,  13.5680).
  206.  
  207.  
  208.  
  209. charcode 10;
  210. charht (( 13.1847.vecunit).ptspervecunit);
  211. chardp 0;
  212. charwd ((  9.0645.vecunit).ptspervecunit);
  213. call vect (  9.0645,  13.1847).
  214.  
  215.  
  216.  
  217. charcode 11;
  218. charht (( 12.8000.vecunit).ptspervecunit);
  219. chardp 0;
  220. charwd ((  9.6000.vecunit).ptspervecunit);
  221. call vect (  9.6000,  12.8000).
  222.  
  223.  
  224.  
  225. charcode 12;
  226. charht (( 12.4178.vecunit).ptspervecunit);
  227. chardp 0;
  228. charwd (( 10.0895.vecunit).ptspervecunit);
  229. call vect ( 10.0895,  12.4178).
  230.  
  231.  
  232.  
  233. charcode 13;
  234. charht (( 12.0412.vecunit).ptspervecunit);
  235. chardp 0;
  236. charwd (( 10.5361.vecunit).ptspervecunit);
  237. call vect ( 10.5361,  12.0412).
  238.  
  239.  
  240.  
  241. charcode 14;
  242. charht (( 11.6726.vecunit).ptspervecunit);
  243. chardp 0;
  244. charwd (( 10.9431.vecunit).ptspervecunit);
  245. call vect ( 10.9431,  11.6726).
  246.  
  247.  
  248.  
  249. charcode 15;
  250. charht (( 11.3137.vecunit).ptspervecunit);
  251. chardp 0;
  252. charwd (( 11.3137.vecunit).ptspervecunit);
  253. call vect ( 11.3137,  11.3137).
  254.  
  255.  
  256.  
  257. charcode 16;
  258. charht (( 10.9431.vecunit).ptspervecunit);
  259. chardp 0;
  260. charwd (( 11.6726.vecunit).ptspervecunit);
  261. call vect ( 11.6726,  10.9431).
  262.  
  263.  
  264.  
  265. charcode 17;
  266. charht (( 10.5361.vecunit).ptspervecunit);
  267. chardp 0;
  268. charwd (( 12.0412.vecunit).ptspervecunit);
  269. call vect ( 12.0412,  10.5361).
  270.  
  271.  
  272.  
  273. charcode 18;
  274. charht (( 10.0895.vecunit).ptspervecunit);
  275. chardp 0;
  276. charwd (( 12.4178.vecunit).ptspervecunit);
  277. call vect ( 12.4178,  10.0895).
  278.  
  279.  
  280.  
  281. charcode 19;
  282. charht ((  9.6000.vecunit).ptspervecunit);
  283. chardp 0;
  284. charwd (( 12.8000.vecunit).ptspervecunit);
  285. call vect ( 12.8000,   9.6000).
  286.  
  287.  
  288.  
  289. charcode 20;
  290. charht ((  9.0645.vecunit).ptspervecunit);
  291. chardp 0;
  292. charwd (( 13.1847.vecunit).ptspervecunit);
  293. call vect ( 13.1847,   9.0645).
  294.  
  295.  
  296.  
  297. charcode 21;
  298. charht ((  8.4800.vecunit).ptspervecunit);
  299. chardp 0;
  300. charwd (( 13.5680.vecunit).ptspervecunit);
  301. call vect ( 13.5680,   8.4800).
  302.  
  303.  
  304.  
  305. charcode 22;
  306. charht ((  7.8442.vecunit).ptspervecunit);
  307. chardp 0;
  308. charwd (( 13.9452.vecunit).ptspervecunit);
  309. call vect ( 13.9452,   7.8442).
  310.  
  311.  
  312.  
  313. charcode 23;
  314. charht ((  7.1554.vecunit).ptspervecunit);
  315. chardp 0;
  316. charwd (( 14.3108.vecunit).ptspervecunit);
  317. call vect ( 14.3108,   7.1554).
  318.  
  319.  
  320.  
  321. charcode 24;
  322. charht ((  6.4131.vecunit).ptspervecunit);
  323. chardp 0;
  324. charwd (( 14.6585.vecunit).ptspervecunit);
  325. call vect ( 14.6585,   6.4131).
  326.  
  327.  
  328.  
  329. charcode 25;
  330. charht ((  5.6180.vecunit).ptspervecunit);
  331. chardp 0;
  332. charwd (( 14.9813.vecunit).ptspervecunit);
  333. call vect ( 14.9813,   5.6180).
  334.  
  335.  
  336.  
  337. charcode 26;
  338. charht ((  4.7724.vecunit).ptspervecunit);
  339. chardp 0;
  340. charwd (( 15.2717.vecunit).ptspervecunit);
  341. call vect ( 15.2717,   4.7724).
  342.  
  343.  
  344.  
  345. charcode 27;
  346. charht ((  3.8806.vecunit).ptspervecunit);
  347. chardp 0;
  348. charwd (( 15.5223.vecunit).ptspervecunit);
  349. call vect ( 15.5223,   3.8806).
  350.  
  351.  
  352.  
  353. charcode 28;
  354. charht ((  2.9486.vecunit).ptspervecunit);
  355. chardp 0;
  356. charwd (( 15.7260.vecunit).ptspervecunit);
  357. call vect ( 15.7260,   2.9486).
  358.  
  359.  
  360.  
  361. charcode 29;
  362. charht ((  1.9846.vecunit).ptspervecunit);
  363. chardp 0;
  364. charwd (( 15.8764.vecunit).ptspervecunit);
  365. call vect ( 15.8764,   1.9846).
  366.  
  367.  
  368.  
  369. charcode 30;
  370. charht ((  0.9981.vecunit).ptspervecunit);
  371. chardp 0;
  372. charwd (( 15.9688.vecunit).ptspervecunit);
  373. call vect ( 15.9688,   0.9981).
  374.  
  375.  
  376.  
  377. charcode 31;
  378. charht ((  0.0000.vecunit).ptspervecunit);
  379. chardp 0;
  380. charwd (( 16.0000.vecunit).ptspervecunit);
  381. call vect ( 16.0000,   0.0000).
  382.  
  383.  
  384.  
  385. charcode 32;
  386. charht 0;
  387. chardp ((  0.9981.vecunit).ptspervecunit);
  388. charwd (( 15.9688.vecunit).ptspervecunit);
  389. call vect ( 15.9688,  -0.9981).
  390.  
  391.  
  392.  
  393. charcode 33;
  394. charht 0;
  395. chardp ((  1.9846.vecunit).ptspervecunit);
  396. charwd (( 15.8764.vecunit).ptspervecunit);
  397. call vect ( 15.8764,  -1.9846).
  398.  
  399.  
  400.  
  401. charcode 34;
  402. charht 0;
  403. chardp ((  2.9486.vecunit).ptspervecunit);
  404. charwd (( 15.7260.vecunit).ptspervecunit);
  405. call vect ( 15.7260,  -2.9486).
  406.  
  407.  
  408.  
  409. charcode 35;
  410. charht 0;
  411. chardp ((  3.8806.vecunit).ptspervecunit);
  412. charwd (( 15.5223.vecunit).ptspervecunit);
  413. call vect ( 15.5223,  -3.8806).
  414.  
  415.  
  416.  
  417. charcode 36;
  418. charht 0;
  419. chardp ((  4.7724.vecunit).ptspervecunit);
  420. charwd (( 15.2717.vecunit).ptspervecunit);
  421. call vect ( 15.2717,  -4.7724).
  422.  
  423.  
  424.  
  425. charcode 37;
  426. charht 0;
  427. chardp ((  5.6180.vecunit).ptspervecunit);
  428. charwd (( 14.9813.vecunit).ptspervecunit);
  429. call vect ( 14.9813,  -5.6180).
  430.  
  431.  
  432.  
  433. charcode 38;
  434. charht 0;
  435. chardp ((  6.4131.vecunit).ptspervecunit);
  436. charwd (( 14.6585.vecunit).ptspervecunit);
  437. call vect ( 14.6585,  -6.4131).
  438.  
  439.  
  440.  
  441. charcode 39;
  442. charht 0;
  443. chardp ((  7.1554.vecunit).ptspervecunit);
  444. charwd (( 14.3108.vecunit).ptspervecunit);
  445. call vect ( 14.3108,  -7.1554).
  446.  
  447.  
  448.  
  449. charcode 40;
  450. charht 0;
  451. chardp ((  7.8442.vecunit).ptspervecunit);
  452. charwd (( 13.9452.vecunit).ptspervecunit);
  453. call vect ( 13.9452,  -7.8442).
  454.  
  455.  
  456.  
  457. charcode 41;
  458. charht 0;
  459. chardp ((  8.4800.vecunit).ptspervecunit);
  460. charwd (( 13.5680.vecunit).ptspervecunit);
  461. call vect ( 13.5680,  -8.4800).
  462.  
  463.  
  464.  
  465. charcode 42;
  466. charht 0;
  467. chardp ((  9.0645.vecunit).ptspervecunit);
  468. charwd (( 13.1847.vecunit).ptspervecunit);
  469. call vect ( 13.1847,  -9.0645).
  470.  
  471.  
  472.  
  473. charcode 43;
  474. charht 0;
  475. chardp ((  9.6000.vecunit).ptspervecunit);
  476. charwd (( 12.8000.vecunit).ptspervecunit);
  477. call vect ( 12.8000,  -9.6000).
  478.  
  479.  
  480.  
  481. charcode 44;
  482. charht 0;
  483. chardp (( 10.0895.vecunit).ptspervecunit);
  484. charwd (( 12.4178.vecunit).ptspervecunit);
  485. call vect ( 12.4178, -10.0895).
  486.  
  487.  
  488.  
  489. charcode 45;
  490. charht 0;
  491. chardp (( 10.5361.vecunit).ptspervecunit);
  492. charwd (( 12.0412.vecunit).ptspervecunit);
  493. call vect ( 12.0412, -10.5361).
  494.  
  495.  
  496.  
  497. charcode 46;
  498. charht 0;
  499. chardp (( 10.9431.vecunit).ptspervecunit);
  500. charwd (( 11.6726.vecunit).ptspervecunit);
  501. call vect ( 11.6726, -10.9431).
  502.  
  503.  
  504.  
  505. charcode 47;
  506. charht 0;
  507. chardp (( 11.3137.vecunit).ptspervecunit);
  508. charwd (( 11.3137.vecunit).ptspervecunit);
  509. call vect ( 11.3137, -11.3137).
  510.  
  511.  
  512.  
  513. charcode 48;
  514. charht 0;
  515. chardp (( 11.6726.vecunit).ptspervecunit);
  516. charwd (( 10.9431.vecunit).ptspervecunit);
  517. call vect ( 10.9431, -11.6726).
  518.  
  519.  
  520.  
  521. charcode 49;
  522. charht 0;
  523. chardp (( 12.0412.vecunit).ptspervecunit);
  524. charwd (( 10.5361.vecunit).ptspervecunit);
  525. call vect ( 10.5361, -12.0412).
  526.  
  527.  
  528.  
  529. charcode 50;
  530. charht 0;
  531. chardp (( 12.4178.vecunit).ptspervecunit);
  532. charwd (( 10.0895.vecunit).ptspervecunit);
  533. call vect ( 10.0895, -12.4178).
  534.  
  535.  
  536.  
  537. charcode 51;
  538. charht 0;
  539. chardp (( 12.8000.vecunit).ptspervecunit);
  540. charwd ((  9.6000.vecunit).ptspervecunit);
  541. call vect (  9.6000, -12.8000).
  542.  
  543.  
  544.  
  545. charcode 52;
  546. charht 0;
  547. chardp (( 13.1847.vecunit).ptspervecunit);
  548. charwd ((  9.0645.vecunit).ptspervecunit);
  549. call vect (  9.0645, -13.1847).
  550.  
  551.  
  552.  
  553. charcode 53;
  554. charht 0;
  555. chardp (( 13.5680.vecunit).ptspervecunit);
  556. charwd ((  8.4800.vecunit).ptspervecunit);
  557. call vect (  8.4800, -13.5680).
  558.  
  559.  
  560.  
  561. charcode 54;
  562. charht 0;
  563. chardp (( 13.9452.vecunit).ptspervecunit);
  564. charwd ((  7.8442.vecunit).ptspervecunit);
  565. call vect (  7.8442, -13.9452).
  566.  
  567.  
  568.  
  569. charcode 55;
  570. charht 0;
  571. chardp (( 14.3108.vecunit).ptspervecunit);
  572. charwd ((  7.1554.vecunit).ptspervecunit);
  573. call vect (  7.1554, -14.3108).
  574.  
  575.  
  576.  
  577. charcode 56;
  578. charht 0;
  579. chardp (( 14.6585.vecunit).ptspervecunit);
  580. charwd ((  6.4131.vecunit).ptspervecunit);
  581. call vect (  6.4131, -14.6585).
  582.  
  583.  
  584.  
  585. charcode 57;
  586. charht 0;
  587. chardp (( 14.9813.vecunit).ptspervecunit);
  588. charwd ((  5.6180.vecunit).ptspervecunit);
  589. call vect (  5.6180, -14.9813).
  590.  
  591.  
  592.  
  593. charcode 58;
  594. charht 0;
  595. chardp (( 15.2717.vecunit).ptspervecunit);
  596. charwd ((  4.7724.vecunit).ptspervecunit);
  597. call vect (  4.7724, -15.2717).
  598.  
  599.  
  600.  
  601. charcode 59;
  602. charht 0;
  603. chardp (( 15.5223.vecunit).ptspervecunit);
  604. charwd ((  3.8806.vecunit).ptspervecunit);
  605. call vect (  3.8806, -15.5223).
  606.  
  607.  
  608.  
  609. charcode 60;
  610. charht 0;
  611. chardp (( 15.7260.vecunit).ptspervecunit);
  612. charwd ((  2.9486.vecunit).ptspervecunit);
  613. call vect (  2.9486, -15.7260).
  614.  
  615.  
  616.  
  617. charcode 61;
  618. charht 0;
  619. chardp (( 15.8764.vecunit).ptspervecunit);
  620. charwd ((  1.9846.vecunit).ptspervecunit);
  621. call vect (  1.9846, -15.8764).
  622.  
  623.  
  624.  
  625. charcode 62;
  626. charht 0;
  627. chardp (( 15.9688.vecunit).ptspervecunit);
  628. charwd ((  0.9981.vecunit).ptspervecunit);
  629. call vect (  0.9981, -15.9688).
  630.  
  631.  
  632.  
  633. charcode 63;
  634. charht ((  8.0000.vecunit).ptspervecunit);
  635. chardp 0;
  636. charwd (( -0.0000.vecunit).ptspervecunit);
  637. call vect ( -0.0000,   8.0000).
  638.  
  639.  
  640.  
  641. charcode 64;
  642. charht ((  7.9382.vecunit).ptspervecunit);
  643. chardp 0;
  644. charwd ((  0.9923.vecunit).ptspervecunit);
  645. call vect (  0.9923,   7.9382).
  646.  
  647.  
  648.  
  649. charcode 65;
  650. charht ((  7.7611.vecunit).ptspervecunit);
  651. chardp 0;
  652. charwd ((  1.9403.vecunit).ptspervecunit);
  653. call vect (  1.9403,   7.7611).
  654.  
  655.  
  656.  
  657. charcode 66;
  658. charht ((  7.4906.vecunit).ptspervecunit);
  659. chardp 0;
  660. charwd ((  2.8090.vecunit).ptspervecunit);
  661. call vect (  2.8090,   7.4906).
  662.  
  663.  
  664.  
  665. charcode 67;
  666. charht ((  7.1554.vecunit).ptspervecunit);
  667. chardp 0;
  668. charwd ((  3.5777.vecunit).ptspervecunit);
  669. call vect (  3.5777,   7.1554).
  670.  
  671.  
  672.  
  673. charcode 68;
  674. charht ((  6.7840.vecunit).ptspervecunit);
  675. chardp 0;
  676. charwd ((  4.2400.vecunit).ptspervecunit);
  677. call vect (  4.2400,   6.7840).
  678.  
  679.  
  680.  
  681. charcode 69;
  682. charht ((  6.4000.vecunit).ptspervecunit);
  683. chardp 0;
  684. charwd ((  4.8000.vecunit).ptspervecunit);
  685. call vect (  4.8000,   6.4000).
  686.  
  687.  
  688.  
  689. charcode 70;
  690. charht ((  6.0206.vecunit).ptspervecunit);
  691. chardp 0;
  692. charwd ((  5.2680.vecunit).ptspervecunit);
  693. call vect (  5.2680,   6.0206).
  694.  
  695.  
  696.  
  697. charcode 71;
  698. charht ((  5.6569.vecunit).ptspervecunit);
  699. chardp 0;
  700. charwd ((  5.6569.vecunit).ptspervecunit);
  701. call vect (  5.6569,   5.6569).
  702.  
  703.  
  704.  
  705. charcode 72;
  706. charht ((  5.2680.vecunit).ptspervecunit);
  707. chardp 0;
  708. charwd ((  6.0206.vecunit).ptspervecunit);
  709. call vect (  6.0206,   5.2680).
  710.  
  711.  
  712.  
  713. charcode 73;
  714. charht ((  4.8000.vecunit).ptspervecunit);
  715. chardp 0;
  716. charwd ((  6.4000.vecunit).ptspervecunit);
  717. call vect (  6.4000,   4.8000).
  718.  
  719.  
  720.  
  721. charcode 74;
  722. charht ((  4.2400.vecunit).ptspervecunit);
  723. chardp 0;
  724. charwd ((  6.7840.vecunit).ptspervecunit);
  725. call vect (  6.7840,   4.2400).
  726.  
  727.  
  728.  
  729. charcode 75;
  730. charht ((  3.5777.vecunit).ptspervecunit);
  731. chardp 0;
  732. charwd ((  7.1554.vecunit).ptspervecunit);
  733. call vect (  7.1554,   3.5777).
  734.  
  735.  
  736.  
  737. charcode 76;
  738. charht ((  2.8090.vecunit).ptspervecunit);
  739. chardp 0;
  740. charwd ((  7.4906.vecunit).ptspervecunit);
  741. call vect (  7.4906,   2.8090).
  742.  
  743.  
  744.  
  745. charcode 77;
  746. charht ((  1.9403.vecunit).ptspervecunit);
  747. chardp 0;
  748. charwd ((  7.7611.vecunit).ptspervecunit);
  749. call vect (  7.7611,   1.9403).
  750.  
  751.  
  752.  
  753. charcode 78;
  754. charht ((  0.9923.vecunit).ptspervecunit);
  755. chardp 0;
  756. charwd ((  7.9382.vecunit).ptspervecunit);
  757. call vect (  7.9382,   0.9923).
  758.  
  759.  
  760.  
  761. charcode 79;
  762. charht ((  0.0000.vecunit).ptspervecunit);
  763. chardp 0;
  764. charwd ((  8.0000.vecunit).ptspervecunit);
  765. call vect (  8.0000,   0.0000).
  766.  
  767.  
  768.  
  769. charcode 80;
  770. charht 0;
  771. chardp ((  0.9923.vecunit).ptspervecunit);
  772. charwd ((  7.9382.vecunit).ptspervecunit);
  773. call vect (  7.9382,  -0.9923).
  774.  
  775.  
  776.  
  777. charcode 81;
  778. charht 0;
  779. chardp ((  1.9403.vecunit).ptspervecunit);
  780. charwd ((  7.7611.vecunit).ptspervecunit);
  781. call vect (  7.7611,  -1.9403).
  782.  
  783.  
  784.  
  785. charcode 82;
  786. charht 0;
  787. chardp ((  2.8090.vecunit).ptspervecunit);
  788. charwd ((  7.4906.vecunit).ptspervecunit);
  789. call vect (  7.4906,  -2.8090).
  790.  
  791.  
  792.  
  793. charcode 83;
  794. charht 0;
  795. chardp ((  3.5777.vecunit).ptspervecunit);
  796. charwd ((  7.1554.vecunit).ptspervecunit);
  797. call vect (  7.1554,  -3.5777).
  798.  
  799.  
  800.  
  801. charcode 84;
  802. charht 0;
  803. chardp ((  4.2400.vecunit).ptspervecunit);
  804. charwd ((  6.7840.vecunit).ptspervecunit);
  805. call vect (  6.7840,  -4.2400).
  806.  
  807.  
  808.  
  809. charcode 85;
  810. charht 0;
  811. chardp ((  4.8000.vecunit).ptspervecunit);
  812. charwd ((  6.4000.vecunit).ptspervecunit);
  813. call vect (  6.4000,  -4.8000).
  814.  
  815.  
  816.  
  817. charcode 86;
  818. charht 0;
  819. chardp ((  5.2680.vecunit).ptspervecunit);
  820. charwd ((  6.0206.vecunit).ptspervecunit);
  821. call vect (  6.0206,  -5.2680).
  822.  
  823.  
  824.  
  825. charcode 87;
  826. charht 0;
  827. chardp ((  5.6569.vecunit).ptspervecunit);
  828. charwd ((  5.6569.vecunit).ptspervecunit);
  829. call vect (  5.6569,  -5.6569).
  830.  
  831.  
  832.  
  833. charcode 88;
  834. charht 0;
  835. chardp ((  6.0206.vecunit).ptspervecunit);
  836. charwd ((  5.2680.vecunit).ptspervecunit);
  837. call vect (  5.2680,  -6.0206).
  838.  
  839.  
  840.  
  841. charcode 89;
  842. charht 0;
  843. chardp ((  6.4000.vecunit).ptspervecunit);
  844. charwd ((  4.8000.vecunit).ptspervecunit);
  845. call vect (  4.8000,  -6.4000).
  846.  
  847.  
  848.  
  849. charcode 90;
  850. charht 0;
  851. chardp ((  6.7840.vecunit).ptspervecunit);
  852. charwd ((  4.2400.vecunit).ptspervecunit);
  853. call vect (  4.2400,  -6.7840).
  854.  
  855.  
  856.  
  857. charcode 91;
  858. charht 0;
  859. chardp ((  7.1554.vecunit).ptspervecunit);
  860. charwd ((  3.5777.vecunit).ptspervecunit);
  861. call vect (  3.5777,  -7.1554).
  862.  
  863.  
  864.  
  865. charcode 92;
  866. charht 0;
  867. chardp ((  7.4906.vecunit).ptspervecunit);
  868. charwd ((  2.8090.vecunit).ptspervecunit);
  869. call vect (  2.8090,  -7.4906).
  870.  
  871.  
  872.  
  873. charcode 93;
  874. charht 0;
  875. chardp ((  7.7611.vecunit).ptspervecunit);
  876. charwd ((  1.9403.vecunit).ptspervecunit);
  877. call vect (  1.9403,  -7.7611).
  878.  
  879.  
  880.  
  881. charcode 94;
  882. charht 0;
  883. chardp ((  7.9382.vecunit).ptspervecunit);
  884. charwd ((  0.9923.vecunit).ptspervecunit);
  885. call vect (  0.9923,  -7.9382).
  886.  
  887.  
  888.  
  889. charcode 95;
  890. charht 0;
  891. chardp ((  8.0000.vecunit).ptspervecunit);
  892. charwd (( -0.0000.vecunit).ptspervecunit);
  893. call vect ( -0.0000,  -8.0000).
  894.  
  895.  
  896.  
  897. charcode 96;
  898. charht ((  4.0000.vecunit).ptspervecunit);
  899. chardp 0;
  900. charwd (( -0.0000.vecunit).ptspervecunit);
  901. call vect ( -0.0000,   4.0000).
  902.  
  903.  
  904.  
  905. charcode 97;
  906. charht ((  3.8806.vecunit).ptspervecunit);
  907. chardp 0;
  908. charwd ((  0.9701.vecunit).ptspervecunit);
  909. call vect (  0.9701,   3.8806).
  910.  
  911.  
  912.  
  913. charcode 98;
  914. charht ((  3.5777.vecunit).ptspervecunit);
  915. chardp 0;
  916. charwd ((  1.7889.vecunit).ptspervecunit);
  917. call vect (  1.7889,   3.5777).
  918.  
  919.  
  920.  
  921. charcode 99;
  922. charht ((  3.2000.vecunit).ptspervecunit);
  923. chardp 0;
  924. charwd ((  2.4000.vecunit).ptspervecunit);
  925. call vect (  2.4000,   3.2000).
  926.  
  927.  
  928.  
  929. charcode 100;
  930. charht ((  2.8284.vecunit).ptspervecunit);
  931. chardp 0;
  932. charwd ((  2.8284.vecunit).ptspervecunit);
  933. call vect (  2.8284,   2.8284).
  934.  
  935.  
  936.  
  937. charcode 101;
  938. charht ((  2.4000.vecunit).ptspervecunit);
  939. chardp 0;
  940. charwd ((  3.2000.vecunit).ptspervecunit);
  941. call vect (  3.2000,   2.4000).
  942.  
  943.  
  944.  
  945. charcode 102;
  946. charht ((  1.7889.vecunit).ptspervecunit);
  947. chardp 0;
  948. charwd ((  3.5777.vecunit).ptspervecunit);
  949. call vect (  3.5777,   1.7889).
  950.  
  951.  
  952.  
  953. charcode 103;
  954. charht ((  0.9701.vecunit).ptspervecunit);
  955. chardp 0;
  956. charwd ((  3.8806.vecunit).ptspervecunit);
  957. call vect (  3.8806,   0.9701).
  958.  
  959.  
  960.  
  961. charcode 104;
  962. charht ((  0.0000.vecunit).ptspervecunit);
  963. chardp 0;
  964. charwd ((  4.0000.vecunit).ptspervecunit);
  965. call vect (  4.0000,   0.0000).
  966.  
  967.  
  968.  
  969. charcode 105;
  970. charht 0;
  971. chardp ((  0.9701.vecunit).ptspervecunit);
  972. charwd ((  3.8806.vecunit).ptspervecunit);
  973. call vect (  3.8806,  -0.9701).
  974.  
  975.  
  976.  
  977. charcode 106;
  978. charht 0;
  979. chardp ((  1.7889.vecunit).ptspervecunit);
  980. charwd ((  3.5777.vecunit).ptspervecunit);
  981. call vect (  3.5777,  -1.7889).
  982.  
  983.  
  984.  
  985. charcode 107;
  986. charht 0;
  987. chardp ((  2.4000.vecunit).ptspervecunit);
  988. charwd ((  3.2000.vecunit).ptspervecunit);
  989. call vect (  3.2000,  -2.4000).
  990.  
  991.  
  992.  
  993. charcode 108;
  994. charht 0;
  995. chardp ((  2.8284.vecunit).ptspervecunit);
  996. charwd ((  2.8284.vecunit).ptspervecunit);
  997. call vect (  2.8284,  -2.8284).
  998.  
  999.  
  1000.  
  1001. charcode 109;
  1002. charht 0;
  1003. chardp ((  3.2000.vecunit).ptspervecunit);
  1004. charwd ((  2.4000.vecunit).ptspervecunit);
  1005. call vect (  2.4000,  -3.2000).
  1006.  
  1007.  
  1008.  
  1009. charcode 110;
  1010. charht 0;
  1011. chardp ((  3.5777.vecunit).ptspervecunit);
  1012. charwd ((  1.7889.vecunit).ptspervecunit);
  1013. call vect (  1.7889,  -3.5777).
  1014.  
  1015.  
  1016.  
  1017. charcode 111;
  1018. charht 0;
  1019. chardp ((  3.8806.vecunit).ptspervecunit);
  1020. charwd ((  0.9701.vecunit).ptspervecunit);
  1021. call vect (  0.9701,  -3.8806).
  1022.  
  1023.  
  1024.  
  1025. charcode 112;
  1026. charht 0;
  1027. chardp ((  4.0000.vecunit).ptspervecunit);
  1028. charwd (( -0.0000.vecunit).ptspervecunit);
  1029. call vect ( -0.0000,  -4.0000).
  1030.  
  1031.  
  1032.  
  1033. charcode 113;
  1034. charht ((  2.0000.vecunit).ptspervecunit);
  1035. chardp 0;
  1036. charwd (( -0.0000.vecunit).ptspervecunit);
  1037. call vect ( -0.0000,   2.0000).
  1038.  
  1039.  
  1040.  
  1041. charcode 114;
  1042. charht ((  1.7889.vecunit).ptspervecunit);
  1043. chardp 0;
  1044. charwd ((  0.8944.vecunit).ptspervecunit);
  1045. call vect (  0.8944,   1.7889).
  1046.  
  1047.  
  1048.  
  1049. charcode 115;
  1050. charht ((  1.4142.vecunit).ptspervecunit);
  1051. chardp 0;
  1052. charwd ((  1.4142.vecunit).ptspervecunit);
  1053. call vect (  1.4142,   1.4142).
  1054.  
  1055.  
  1056.  
  1057. charcode 116;
  1058. charht ((  0.8944.vecunit).ptspervecunit);
  1059. chardp 0;
  1060. charwd ((  1.7889.vecunit).ptspervecunit);
  1061. call vect (  1.7889,   0.8944).
  1062.  
  1063.  
  1064.  
  1065. charcode 117;
  1066. charht ((  0.0000.vecunit).ptspervecunit);
  1067. chardp 0;
  1068. charwd ((  2.0000.vecunit).ptspervecunit);
  1069. call vect (  2.0000,   0.0000).
  1070.  
  1071.  
  1072.  
  1073. charcode 118;
  1074. charht 0;
  1075. chardp ((  0.8944.vecunit).ptspervecunit);
  1076. charwd ((  1.7889.vecunit).ptspervecunit);
  1077. call vect (  1.7889,  -0.8944).
  1078.  
  1079.  
  1080.  
  1081. charcode 119;
  1082. charht 0;
  1083. chardp ((  1.4142.vecunit).ptspervecunit);
  1084. charwd ((  1.4142.vecunit).ptspervecunit);
  1085. call vect (  1.4142,  -1.4142).
  1086.  
  1087.  
  1088.  
  1089. charcode 120;
  1090. charht 0;
  1091. chardp ((  1.7889.vecunit).ptspervecunit);
  1092. charwd ((  0.8944.vecunit).ptspervecunit);
  1093. call vect (  0.8944,  -1.7889).
  1094.  
  1095.  
  1096.  
  1097. charcode 121;
  1098. charht 0;
  1099. chardp ((  2.0000.vecunit).ptspervecunit);
  1100. charwd (( -0.0000.vecunit).ptspervecunit);
  1101. call vect ( -0.0000,  -2.0000).
  1102.  
  1103.  
  1104.  
  1105. charcode 122;
  1106. charht ((  1.0000.vecunit).ptspervecunit);
  1107. chardp 0;
  1108. charwd (( -0.0000.vecunit).ptspervecunit);
  1109. call vect ( -0.0000,   1.0000).
  1110.  
  1111.  
  1112.  
  1113. charcode 123;
  1114. charht ((  0.7071.vecunit).ptspervecunit);
  1115. chardp 0;
  1116. charwd ((  0.7071.vecunit).ptspervecunit);
  1117. call vect (  0.7071,   0.7071).
  1118.  
  1119.  
  1120.  
  1121. charcode 124;
  1122. charht ((  0.0000.vecunit).ptspervecunit);
  1123. chardp 0;
  1124. charwd ((  1.0000.vecunit).ptspervecunit);
  1125. call vect (  1.0000,   0.0000).
  1126.  
  1127.  
  1128.  
  1129. charcode 125;
  1130. charht 0;
  1131. chardp ((  0.7071.vecunit).ptspervecunit);
  1132. charwd ((  0.7071.vecunit).ptspervecunit);
  1133. call vect (  0.7071,  -0.7071).
  1134.  
  1135.  
  1136.  
  1137. charcode 126;
  1138. charht 0;
  1139. chardp ((  1.0000.vecunit).ptspervecunit);
  1140. charwd (( -0.0000.vecunit).ptspervecunit);
  1141. call vect ( -0.0000,  -1.0000).
  1142.  
  1143.  
  1144.  
  1145. charcode 127;
  1146. charht ((  0.0000.vecunit).ptspervecunit);
  1147. chardp 0;
  1148. charwd ((1.vecunit).ptspervecunit);
  1149. call vect (  0.0000,   0.0000).
  1150.  
  1151.  
  1152.